home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Sample Code / AOCE Sample Code / PowerTalk Access Modules / Sample CSAM / Sources / SKEL•CSAM_Other.R < prev    next >
Encoding:
Text File  |  1995-07-28  |  4.5 KB  |  134 lines  |  [TEXT/MPS ]
  1. //    ==========================================================================
  2. //    LDAP Other Record Templates
  3. //
  4.  
  5. #define kOtherAspectName "SKEL•Other Aspect"
  6. #define kOtherInfoPageName "SKEL•Other InfoPage"
  7.  
  8. #define kldapOtherRecTypeBody "ldap Other"
  9.  
  10. #define kldapPrCommonName kSAMFirstDevProperty+0
  11. #define kldapPrAlsoKnownAs kSAMFirstDevProperty+1
  12.  
  13. //    --------------------------------------------------------------------------
  14. //    LDAP Other Record • Aspect Template
  15.  
  16. resource 'deta' (ldapOtherAspectID, kOtherAspectName, purgeable) {
  17.     0, dropCheckAlways, isMainAspect
  18. };
  19.  
  20. resource 'rstr' (ldapOtherAspectID+kDETTemplateName, "SKEL•Other Aspect Name", purgeable) {
  21.     kOtherAspectName
  22. };
  23.  
  24. resource 'rstr' (ldapOtherAspectID+kDETRecordType, "SKEL•Other Aspect Record Type", purgeable) {
  25.     kldapOtherRecTypeBody                // "ldap Other"
  26. };
  27.  
  28. resource 'rst#' (ldapOtherAspectID + kDETAspectCategory, "SKEL•Other Aspect Category", purgeable) {
  29.     {kDETCategoryMisc, kDETCategoryAddressItems}
  30. };
  31.  
  32. resource 'rstr' (ldapOtherAspectID + kDETAspectKind, "SKEL•Other Aspect Kind", purgeable) {
  33.     "X.500 Other"
  34. };
  35.  
  36. resource 'rstr' (ldapOtherAspectID + kDETAspectWhatIs, "SKEL•Other Item Balloon", purgeable) {
  37.     "An unknown X.500 type\n\n"
  38.     "There are several X.500 types not yet supported. This is one of them."
  39. };
  40.  
  41. include "SKEL•CSAM.ICON" 'ICN#' (132) as 'ICN#' (ldapOtherAspectID + kDETAspectMainBitmap, "SKEL•Other Aspect", purgeable);
  42. include "SKEL•CSAM.ICON" 'ics#' (132) as 'ics#' (ldapOtherAspectID + kDETAspectMainBitmap, "SKEL•Other Aspect", purgeable);
  43. include "SKEL•CSAM.ICON" 'icl8' (132) as 'icl8' (ldapOtherAspectID + kDETAspectMainBitmap, "SKEL•Other Aspect", purgeable);
  44. include "SKEL•CSAM.ICON" 'ics8' (132) as 'ics8' (ldapOtherAspectID + kDETAspectMainBitmap, "SKEL•Other Aspect", purgeable);
  45. include "SKEL•CSAM.ICON" 'icl4' (132) as 'icl4' (ldapOtherAspectID + kDETAspectMainBitmap, "SKEL•Other Aspect", purgeable);
  46. include "SKEL•CSAM.ICON" 'ics4' (132) as 'ics4' (ldapOtherAspectID + kDETAspectMainBitmap, "SKEL•Other Aspect", purgeable);
  47.  
  48. include "SKEL•CSAM.ICON" 'SICN' (132) as 'SICN' (ldapOtherAspectID + kDETAspectMainBitmap, "SKEL•Other Aspect", purgeable);
  49.  
  50. resource 'dett' (ldapOtherAspectID+kDETAspectLookup, "SKEL•Other Aspect LookUp", purgeable) {
  51.     {
  52.         { "SkelName" }, typeRString,
  53.             useForInput, useForOutput, notInSublist, isNotAlias, isNotRecordRef,
  54.                 { 'rstr', kldapPrCommonName, 0 },
  55.  
  56.         { "SkelString" }, typeRString,
  57.             useForInput, useForOutput, notInSublist, isNotAlias, isNotRecordRef,
  58.                 { 'rstr', kldapPrAlsoKnownAs, 0 }
  59.     }
  60. };
  61.  
  62. resource 'rstr' (ldapOtherAspectID+kldapPrCommonName, "SKEL•Other", purgeable) {
  63.     "<Enter Common Name>"
  64. };
  65.  
  66. resource 'rstr' (ldapOtherAspectID+kldapPrAlsoKnownAs, "SKEL•Other", purgeable) {
  67.     "<Enter Other Names>"
  68. };
  69.  
  70. //eject
  71. //    --------------------------------------------------------------------------
  72. //    LDAP Other Record • InfoPage Template
  73.  
  74. resource 'deti' (ldapOtherInfoPageID, "SKEL•Other InfoPage", purgeable) {
  75.     1000,                                                                // sort order
  76.     {0, 0, 0, 0},                                                    // sublist rectangle
  77.         noSelectFirstText,
  78.         { kDETNoProperty, kDETNoProperty, ldapOtherInfoPageID },    //    header view lists
  79.         { }                                                            //    subview view lists
  80. };
  81.  
  82. resource 'rstr' (ldapOtherInfoPageID+kDETTemplateName, "SKEL•Other InfoPage", purgeable) {
  83.     kOtherInfoPageName
  84. };
  85.  
  86. resource 'rstr' (ldapOtherInfoPageID+kDETRecordType, "SKEL•Other InfoPage", purgeable) {
  87.     kldapOtherRecTypeBody                // "ldap Other"
  88. };
  89.  
  90. resource 'rstr' (ldapOtherInfoPageID+kDETInfoPageName, "SKEL•Other InfoPage", purgeable) {
  91.     "X.500 Other Information"
  92. };
  93.  
  94. resource 'rstr' (ldapOtherInfoPageID+kDETInfoPageMainViewAspect, "SKEL•Other InfoPage", purgeable) {
  95.     kOtherAspectName
  96. };
  97.  
  98. #define k1L 42
  99. #define k1W 90
  100. #define k1R k1L+k1W
  101.  
  102. #define k2L k1R+2
  103. #define k2W 227
  104. #define k2R k2L+k2W
  105.  
  106. #define ksH 18
  107. #define keH 17
  108.  
  109. resource 'detv' (ldapOtherInfoPageID, "SKEL•Other InfoPage", purgeable) {
  110.     {
  111.         kDETSubpageIconRect, kDETNoFlags, kDETAspectMainBitmap,
  112.             Bitmap
  113.                 { kDETLargeIcon },
  114.  
  115. #define k1T 38
  116.         {k1T, k1L, k1T+ksH, k1R}, kDETNoFlags, kDETNoProperty,
  117.             StaticTextFromView
  118.                 { kDETApplicationFont, 10, kDETRight, kDETBold, "commonName:" },
  119.  
  120.         {k1T-2, k2L, k1T-2+keH, k2R}, kDETEnabled, kldapPrCommonName,
  121.             EditText
  122.                 { kDETApplicationFont, 10, kDETLeft, kDETNormal },
  123.  
  124. #define k2T k1T+26
  125.         {k2T, k1L, k2T+ksH, k1R}, kDETNoFlags, kDETNoProperty,
  126.             StaticTextFromView
  127.                 { kDETApplicationFont, 10, kDETRight, kDETBold, "otherNames:" },
  128.  
  129.         {k2T-2, k2L, k2T-2+keH, k2R}, kDETEnabled, kldapPrAlsoKnownAs,
  130.             EditText
  131.                 { kDETApplicationFont, 10, kDETLeft, kDETNormal }
  132.     }
  133. };
  134.